home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / MacHelp / MacHelp 1 / Help / background_2792.txt < prev    next >
Encoding:
Text File  |  1988-02-25  |  1.4 KB  |  67 lines
  1. -- background: 2792 from stack: in
  2. -- bmap block id: 3257
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=98 top=91 right=242 bottom=481
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Description
  20.  
  21.  
  22. -- part 21 (button)
  23. -- low flags: 00
  24. -- high flags: 8000
  25. -- rect: left=85 top=243 right=278 bottom=149
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to stack "Apple Sac Home "
  37. end mouseUp
  38.  
  39.  
  40.  
  41.  
  42. -- part 22 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=94 top=66 right=84 bottom=179
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Compact Stack
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   put the size of this stack into var
  57.   ANSWER "This stack takes this much space" with var
  58.   put the freesize of this stack into var
  59.   ANSWER "You are wasting this much space" with var
  60.   if var > 0 then
  61.     answer "Would you like to compact this stack?" with No or Yes
  62.     if it is "yes"
  63.     then domenu "compact stack"
  64.   end if
  65. end mouseUp
  66.  
  67.